home *** CD-ROM | disk | FTP | other *** search
- 10 M=8192:R=0:L=360:GOSUB260
- 20 M=12296:R=0:L=1550:GOSUB260
- 30 M=12544:R=0:L=1840:GOSUB260
- 40 M=12808:R=0:L=2110:GOSUB260
- 50 L=2380:R=0:M=13320:GOSUB260
- 60 L=2670:R=0:M=13568:GOSUB260
- 70 L=2940:R=0:M=13832:GOSUB260
- 80 L=3210:R=0:M=33856:GOSUB260
- 85 L=3270:R=0:M=7937:GOSUB260
- 91 PRINT:PRINT"INSERT OUTPUT DEVICE"
- 92 PRINT:PRINT"AND PRESS RETURN"
- 93 OPEN 1,0:INPUT#1,A$:CLOSE1:PRINT
- 99 REM
- 100 SYS 57812 "MC CODE",8,1
- 110 REM
- 120 REM ALTER ABOVE LINE FOR NEW NAME
- 130 REM OR TO SAVE TO TAPE ETC.
- 140 REM
- 150 REM
- 160 SYS 40000
- 170 END
- 180 OPEN 1,0:INPUT#1,A$:CLOSE1
- 260 M=M+6144
- 265 S=0:FORI=0TO7:READD
- 270 IFD<0THEN340
- 280 IFD>255THEN330
- 290 POKEM+R,D:S=S+D:R=R+1:NEXTI
- 300 READD:IFD<0THEN340
- 310 IFS=DTHENL=L+10:GOTO265
- 320 PRINT"SUMCHECK ";
- 330 PRINT"ERROR IN LINE";L:END
- 340 READD:IFS<>DTHEN320
- 350 RETURN
- 360 DATA 76,4,34,76,57,34,76,212,569
- 370 DATA 34,76,18,32,76,238,34,76,584
- 380 DATA 16,35,169,1,141,168,2,32,564
- 390 DATA 58,35,234,234,169,7,133,185,1055
- 400 DATA 169,0,141,230,219,141,190,219,1309
- 410 DATA 141,189,219,141,191,219,141,231,1472
- 420 DATA 219,141,229,219,141,192,219,141,1501
- 430 DATA 193,219,141,194,219,141,32,208,1347
- 440 DATA 141,33,208,169,0,141,14,220,926
- 450 DATA 133,251,169,56,133,252,169,23,1186
- 460 DATA 141,17,208,133,253,169,1,133,1055
- 470 DATA 187,120,169,146,141,20,3,169,955
- 480 DATA 32,141,21,3,169,248,141,18,773
- 490 DATA 208,88,169,129,141,26,208,173,1142
- 500 DATA 1,220,41,16,208,249,169,240,1144
- 510 DATA 141,26,208,120,169,49,141,20,874
- 520 DATA 3,169,234,141,21,3,169,27,767
- 530 DATA 141,17,208,169,1,141,14,220,911
- 540 DATA 88,96,173,25,208,41,1,208,840
- 550 DATA 3,76,49,234,141,25,208,165,901
- 560 DATA 254,240,11,230,2,165,2,41,945
- 570 DATA 1,208,3,76,209,33,198,253,981
- 580 DATA 165,253,201,15,240,13,173,17,1077
- 590 DATA 208,41,224,5,253,141,17,208,1097
- 600 DATA 76,209,33,169,23,133,253,173,1069
- 610 DATA 17,208,41,224,5,253,141,17,906
- 620 DATA 208,162,3,189,40,4,157,0,763
- 630 DATA 4,189,80,4,157,40,4,189,667
- 640 DATA 120,4,157,80,4,189,160,4,718
- 650 DATA 157,120,4,189,200,4,157,160,991
- 660 DATA 4,189,240,4,157,200,4,189,987
- 670 DATA 24,5,157,240,4,189,64,5,688
- 680 DATA 157,24,5,189,104,5,157,64,705
- 690 DATA 5,189,144,5,157,104,5,189,798
- 700 DATA 184,5,157,144,5,189,224,5,913
- 710 DATA 157,184,5,189,8,6,157,224,930
- 720 DATA 5,189,48,6,157,8,6,189,608
- 730 DATA 88,6,157,48,6,189,128,6,628
- 740 DATA 157,88,6,189,168,6,157,128,899
- 750 DATA 6,189,208,6,157,168,6,189,929
- 760 DATA 248,6,157,208,6,189,32,7,853
- 770 DATA 157,248,6,189,72,7,157,32,868
- 780 DATA 7,189,112,7,157,72,7,189,740
- 790 DATA 152,7,157,112,7,189,192,7,823
- 800 DATA 157,152,7,169,32,157,192,7,873
- 810 DATA 232,224,37,240,3,76,211,32,1055
- 820 DATA 230,187,165,187,41,1,133,187,1131
- 830 DATA 169,190,133,184,160,0,177,251,1264
- 840 DATA 133,183,169,20,56,229,183,133,1106
- 850 DATA 183,169,0,141,167,2,177,251,1090
- 860 DATA 24,101,184,133,184,160,2,177,965
- 870 DATA 251,166,187,224,0,240,2,9,1079
- 880 DATA 128,145,184,32,217,33,224,0,963
- 890 DATA 240,6,201,32,240,2,9,128,858
- 900 DATA 230,184,145,184,198,184,200,200,1525
- 910 DATA 238,167,2,173,167,2,197,183,1129
- 920 DATA 208,213,224,0,240,11,165,251,1312
- 930 DATA 24,105,40,133,251,144,2,230,929
- 940 DATA 252,169,248,141,18,208,76,188,1300
- 950 DATA 254,41,127,201,46,208,4,24,905
- 960 DATA 105,16,96,201,45,208,4,56,731
- 970 DATA 233,17,96,201,48,208,4,56,863
- 980 DATA 233,5,96,201,32,208,1,96,872
- 990 DATA 201,27,144,4,56,233,16,96,777
- 1000 DATA 24,105,64,96,169,0,133,251,842
- 1010 DATA 169,56,133,252,160,0,169,32,971
- 1020 DATA 145,251,136,208,249,230,252,165,1636
- 1030 DATA 252,201,160,208,241,169,56,133,1420
- 1040 DATA 252,160,0,169,1,145,251,165,1143
- 1050 DATA 251,24,105,40,133,251,144,243,1191
- 1060 DATA 230,252,165,252,201,160,208,235,1703
- 1070 DATA 96,162,0,189,152,7,157,192,955
- 1080 DATA 7,189,112,7,157,152,7,189,820
- 1090 DATA 72,7,157,112,7,189,32,7,583
- 1100 DATA 157,72,7,189,248,6,157,32,868
- 1110 DATA 7,189,208,6,157,248,6,189,1010
- 1120 DATA 168,6,157,208,6,189,128,6,868
- 1130 DATA 157,168,6,189,88,6,157,128,899
- 1140 DATA 6,189,48,6,157,88,6,189,689
- 1150 DATA 8,6,157,48,6,189,224,5,643
- 1160 DATA 157,8,6,189,184,5,157,224,930
- 1170 DATA 5,189,144,5,157,184,5,189,878
- 1180 DATA 104,5,157,144,5,189,64,5,673
- 1190 DATA 157,104,5,189,24,5,157,64,705
- 1200 DATA 5,189,240,4,157,24,5,189,813
- 1210 DATA 200,4,157,240,4,189,160,4,958
- 1220 DATA 157,200,4,189,120,4,157,160,991
- 1230 DATA 4,189,80,4,157,120,4,189,747
- 1240 DATA 40,4,157,80,4,189,0,4,478
- 1250 DATA 157,40,4,232,224,40,240,3,940
- 1260 DATA 76,59,34,96,169,0,133,251,818
- 1270 DATA 169,216,133,252,160,0,169,6,1105
- 1280 DATA 145,251,136,208,249,230,252,165,1636
- 1290 DATA 252,201,220,208,241,96,169,0,1387
- 1300 DATA 133,251,133,253,169,4,133,252,1328
- 1310 DATA 169,160,133,254,160,0,177,251,1304
- 1320 DATA 145,253,136,208,249,230,252,230,1703
- 1330 DATA 254,165,252,201,8,208,239,96,1423
- 1340 DATA 169,0,133,251,133,253,169,4,1112
- 1350 DATA 133,254,169,160,133,252,169,54,1324
- 1360 DATA 133,1,160,0,177,251,145,253,1120
- 1370 DATA 136,208,249,230,252,230,254,165,1724
- 1380 DATA 254,201,8,208,239,169,55,133,1267
- 1390 DATA 1,96,169,147,32,210,255,169,1079
- 1400 DATA 0,133,251,169,216,133,252,160,1314
- 1410 DATA 0,173,168,2,145,251,136,208,1083
- 1420 DATA 248,230,252,165,252,201,220,208,1776
- 1430 DATA 240,96,234,255,-1,825
- 1550 DATA 3,7,15,30,60,60,63,63,301
- 1560 DATA 127,127,60,60,60,60,63,63,620
- 1570 DATA 15,31,62,60,60,60,60,60,408
- 1580 DATA 127,127,60,60,60,60,60,60,614
- 1590 DATA 127,127,60,60,60,60,63,63,620
- 1600 DATA 127,127,60,60,60,60,63,63,620
- 1610 DATA 15,31,62,60,60,60,60,60,408
- 1620 DATA 126,126,60,60,60,60,63,63,618
- 1630 DATA 15,15,3,3,3,3,3,3,48
- 1640 DATA 3,3,0,0,0,0,0,0,6
- 1650 DATA 60,60,60,61,63,63,63,63,493
- 1660 DATA 60,60,60,60,60,60,60,60,480
- 1670 DATA 56,60,62,63,63,63,61,60,488
- 1680 DATA 60,60,62,63,63,63,63,63,497
- 1690 DATA 15,31,62,60,60,60,60,60,408
- 1700 DATA 127,127,60,60,60,60,63,63,620
- 1710 DATA 15,31,62,60,60,60,60,60,408
- 1720 DATA 127,127,60,60,60,60,63,63,620
- 1730 DATA 15,31,62,60,60,62,31,15,336
- 1740 DATA 63,63,51,3,3,3,3,3,192
- 1750 DATA 126,126,60,60,60,60,60,60,612
- 1760 DATA 60,60,60,60,60,60,60,60,480
- 1770 DATA 60,60,60,60,60,60,60,61,481
- 1780 DATA 60,60,60,62,31,15,3,3,294
- 1790 DATA 60,60,60,60,30,15,7,3,295
- 1800 DATA 63,63,48,0,0,1,3,7,185
- 1810 DATA 60,48,48,48,48,48,60,0,360
- 1820 DATA 0,0,0,0,0,0,252,252,504
- 1830 DATA 60,-1,60
- 1840 DATA 0,0,0,0,0,0,0,0,0
- 1850 DATA 192,192,192,192,192,192,192,192,1536
- 1860 DATA 240,248,124,60,60,124,248,224,1328
- 1870 DATA 240,248,124,60,60,120,240,240,1332
- 1880 DATA 252,252,252,188,60,60,60,60,1184
- 1890 DATA 252,252,12,0,240,248,124,60,1188
- 1900 DATA 240,248,60,28,0,0,240,248,1064
- 1910 DATA 252,252,60,124,248,240,224,192,1592
- 1920 DATA 240,248,124,60,60,124,248,240,1344
- 1930 DATA 240,248,60,60,60,124,252,252,1296
- 1940 DATA 0,102,60,255,60,102,0,0,579
- 1950 DATA 240,248,124,60,124,252,252,188,1488
- 1960 DATA 0,0,0,0,0,24,24,48,96
- 1970 DATA 0,0,0,0,0,0,63,63,126
- 1980 DATA 0,0,0,0,0,0,0,0,0
- 1990 DATA 0,3,6,12,24,48,96,0,189
- 2000 DATA 15,31,62,60,60,60,61,63,412
- 2010 DATA 3,3,3,3,15,15,3,3,48
- 2020 DATA 15,31,60,56,0,0,0,3,165
- 2030 DATA 15,31,60,56,0,0,3,3,168
- 2040 DATA 0,1,3,7,15,30,60,60,176
- 2050 DATA 63,63,60,60,63,63,0,0,372
- 2060 DATA 15,31,62,60,60,60,63,63,414
- 2070 DATA 63,63,60,60,0,1,3,3,253
- 2080 DATA 15,31,62,60,60,62,31,15,336
- 2090 DATA 15,31,62,60,60,62,31,15,336
- 2100 DATA 0,-1,0
- 2110 DATA 192,224,240,120,60,60,252,252,1400
- 2120 DATA 240,248,124,60,60,120,240,240,1332
- 2130 DATA 240,248,60,28,0,0,0,0,576
- 2140 DATA 192,224,240,120,56,60,60,60,1012
- 2150 DATA 252,252,12,0,0,0,224,224,964
- 2160 DATA 252,252,12,0,0,0,224,224,964
- 2170 DATA 240,248,60,28,0,0,252,252,1080
- 2180 DATA 126,126,60,60,60,60,252,252,996
- 2190 DATA 240,240,192,192,192,192,192,192,1632
- 2200 DATA 252,252,240,240,240,240,240,240,1944
- 2210 DATA 62,124,248,240,224,192,128,128,1346
- 2220 DATA 0,0,0,0,0,0,0,0,0
- 2230 DATA 7,15,31,63,255,255,239,207,1072
- 2240 DATA 60,60,60,60,188,252,252,252,1184
- 2250 DATA 240,248,124,60,60,60,60,60,912
- 2260 DATA 240,248,124,60,60,124,248,240,1344
- 2270 DATA 240,248,124,60,60,60,60,60,912
- 2280 DATA 240,248,124,60,60,124,248,240,1344
- 2290 DATA 240,248,60,28,0,0,240,248,1064
- 2300 DATA 252,252,204,192,192,192,192,192,1668
- 2310 DATA 126,126,60,60,60,60,60,60,612
- 2320 DATA 60,60,60,60,60,60,60,60,480
- 2330 DATA 15,15,15,15,15,15,207,239,536
- 2340 DATA 60,60,60,124,248,240,192,192,1176
- 2350 DATA 60,60,60,60,120,240,224,192,1016
- 2360 DATA 252,252,60,124,248,240,224,192,1592
- 2370 DATA 0,-1,0
- 2380 DATA 60,60,60,60,60,60,0,0,360
- 2390 DATA 60,60,60,60,127,127,0,0,494
- 2400 DATA 60,60,60,62,31,15,0,0,288
- 2410 DATA 60,60,60,60,127,127,0,0,494
- 2420 DATA 60,60,60,60,127,127,0,0,494
- 2430 DATA 60,60,60,60,126,126,0,0,492
- 2440 DATA 60,60,60,62,31,15,0,0,288
- 2450 DATA 60,60,60,60,126,126,0,0,492
- 2460 DATA 3,3,3,3,15,15,0,0,42
- 2470 DATA 0,0,56,60,31,15,0,0,162
- 2480 DATA 63,63,61,60,60,60,0,0,367
- 2490 DATA 60,60,60,60,127,127,0,0,494
- 2500 DATA 60,60,60,60,60,60,0,0,360
- 2510 DATA 61,60,60,60,60,60,0,0,361
- 2520 DATA 60,60,60,62,31,15,0,0,288
- 2530 DATA 60,60,60,60,126,126,0,0,492
- 2540 DATA 60,62,31,15,0,0,0,0,168
- 2550 DATA 63,63,61,60,126,126,0,0,499
- 2560 DATA 0,0,56,60,31,15,0,0,162
- 2570 DATA 3,3,3,3,7,7,0,0,26
- 2580 DATA 60,60,60,62,31,15,0,0,288
- 2590 DATA 60,60,30,15,7,3,0,0,175
- 2600 DATA 63,63,63,63,62,60,0,0,374
- 2610 DATA 15,31,62,60,60,60,0,0,288
- 2620 DATA 3,3,3,3,7,7,0,0,26
- 2630 DATA 15,31,62,60,63,63,0,0,294
- 2640 DATA 195,207,207,207,207,207,195,255,1680
- 2650 DATA 0,0,0,0,0,0,0,0,0
- 2660 DATA 24,-1,24
- 2670 DATA 0,0,0,0,0,0,0,0,0
- 2680 DATA 192,192,192,192,252,252,0,0,1272
- 2690 DATA 192,0,0,12,252,252,0,0,708
- 2700 DATA 120,60,60,124,248,240,0,0,852
- 2710 DATA 255,255,60,60,60,60,0,0,750
- 2720 DATA 60,60,60,124,248,240,0,0,792
- 2730 DATA 124,60,60,124,248,240,0,0,856
- 2740 DATA 192,192,192,192,192,192,0,0,1152
- 2750 DATA 120,60,60,124,248,240,0,0,852
- 2760 DATA 60,60,60,124,248,240,0,0,792
- 2770 DATA 255,153,195,0,195,153,255,255,1461
- 2780 DATA 60,60,60,124,248,240,0,0,792
- 2790 DATA 255,255,255,255,255,231,231,207,1944
- 2800 DATA 0,0,0,0,0,0,0,0,0
- 2810 DATA 0,0,3,3,3,3,0,0,12
- 2820 DATA 255,252,249,243,231,207,159,255,1851
- 2830 DATA 63,62,60,62,31,15,0,0,293
- 2840 DATA 3,3,3,3,63,63,0,0,138
- 2850 DATA 15,31,62,60,63,63,0,0,294
- 2860 DATA 0,0,56,60,31,15,0,0,162
- 2870 DATA 63,63,0,0,0,0,0,0,126
- 2880 DATA 0,0,56,60,31,15,0,0,162
- 2890 DATA 62,60,60,62,31,15,0,0,290
- 2900 DATA 3,3,3,3,3,3,0,0,18
- 2910 DATA 30,60,60,62,31,15,0,0,258
- 2920 DATA 0,0,56,60,31,15,0,0,162
- 2930 DATA 255,-1,255
- 2940 DATA 60,60,60,60,60,60,0,0,360
- 2950 DATA 120,60,60,124,248,240,0,0,852
- 2960 DATA 0,0,28,60,248,240,0,0,576
- 2970 DATA 60,56,120,240,224,192,0,0,892
- 2980 DATA 0,0,0,12,252,252,0,0,516
- 2990 DATA 0,0,0,0,0,0,0,0,0
- 3000 DATA 60,60,60,124,248,240,0,0,792
- 3010 DATA 60,60,60,60,126,126,0,0,492
- 3020 DATA 192,192,192,192,240,240,0,0,1248
- 3030 DATA 240,240,240,240,224,192,0,0,1376
- 3040 DATA 192,224,240,248,124,62,0,0,1090
- 3050 DATA 0,0,0,12,252,252,0,0,516
- 3060 DATA 15,15,15,15,15,15,0,0,90
- 3070 DATA 252,252,124,60,60,60,0,0,808
- 3080 DATA 60,60,60,124,248,240,0,0,792
- 3090 DATA 60,120,224,240,252,124,0,0,1020
- 3110 DATA 192,224,240,248,124,62,0,0,1090
- 3120 DATA 124,60,60,124,248,240,0,0,856
- 3130 DATA 192,192,192,192,224,224,0,0,1216
- 3140 DATA 60,60,60,124,248,240,0,0,792
- 3150 DATA 60,60,120,240,224,192,0,0,896
- 3160 DATA 255,255,255,63,31,15,0,0,874
- 3170 DATA 240,248,124,60,60,60,0,0,792
- 3180 DATA 192,192,192,192,224,224,0,0,1216
- 3190 DATA 128,0,0,12,252,252,0,0,644
- 3200 DATA 231,-1,231
- 3210 DATA 169,0,133,251,133,253,169,31,1139
- 3220 DATA 133,254,169,55,133,252,160,0,1156
- 3230 DATA 177,251,145,253,136,208,249,230,1649
- 3240 DATA 252,230,254,165,254,201,56,208,1620
- 3250 DATA 239,169,31,133,252,169,251,162,1406
- 3260 DATA 0,160,56,32,216,255,96,255,-1,1070
- 3270 DATA 11,8,0,0,158,50,48,54,329
- 3280 DATA 51,0,0,0,0,0,165,186,402
- 3290 DATA 201,126,240,37,169,0,133,251,1157
- 3300 DATA 133,253,169,160,133,254,56,233,1391
- 3310 DATA 23,133,252,160,0,177,251,145,1141
- 3320 DATA 253,136,208,249,198,252,198,254,1748
- 3330 DATA 165,252,201,8,208,239,32,0,1105
- 3340 DATA 32,169,126,133,186,169,28,141,984
- 3350 DATA 24,208,173,255,47,133,254,32,1126
- 3360 DATA 9,32,169,21,141,24,208,32,-1,636
-